* ======================
*     Easy Emulation
*     version 1.2
* ======================
* =
* Easy Emulation is free, and considered PUBLIC DOMAIN.  You may modify
* this if you wish, and redistribute it.  Just be sure to change the name,
* and give me credit for the little that I *did* do.
* Thanks.
* =
* Chris Silverberg  - Main Street USA BBS - (508) 832-7725

:BEGIN
SETGROUP 1,1
SETGROUP 2,1
SHELL A%,32444
TEST A% = 1
IF NO JUMPTO GETOUT
GETGROUP A%,1
GETGROUP B%,2
TEST B% = 1
IF YES LET EQUAL P%,9
IF NO LET EQUAL P%,12
TEST A% = 1
IF YES JUMPTO PCANSI
TEST A% = 2
IF YES JUMPTO VTEMUL
TEST A% = 3
IF YES JUMPTO TTYPC
TEST A% = 4
IF YES JUMPTO TTYMAC

:REGTTY
DELKEY OFF
TTY
NOZAP OFF
FONT 98,P%
JUMPTO GETOUT

:PCANSI
DELKEY OFF
VT102
PUTPARAM 142,1
PUTPARAM 143,0
PUTPARAM 144,201
NOZAP ON
FONT 201,P%
JUMPTO GETOUT

:VTEMUL
DELKEY ON
VT102
NOZAP OFF
FONT 98,P%
JUMPTO GETOUT

:TTYPC
DELKEY OFF
TTY
PUTPARAM 142,1
PUTPARAM 143,0
PUTPARAM 144,201
NOZAP ON
FONT 201,P%
JUMPTO GETOUT

:TTYMAC
DELKEY OFF
TTY
NOZAP ON
FONT 98,P%
JUMPTO GETOUT

:GETOUT
END